home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Simple_Cli20339811302006.psc / Message Box / Form1.frm next >
Text File  |  2006-11-24  |  9KB  |  307 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Message Box"
  6.    ClientHeight    =   2970
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7860
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Icon            =   "Form1.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2970
  17.    ScaleWidth      =   7860
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin MessageBox.xpButton CmdRply 
  20.       Height          =   495
  21.       Left            =   3600
  22.       TabIndex        =   7
  23.       Top             =   2280
  24.       Width           =   1335
  25.       _ExtentX        =   2355
  26.       _ExtentY        =   873
  27.       TX              =   "Reply"
  28.       ENAB            =   -1  'True
  29.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   9.75
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       FOCUSR          =   -1  'True
  39.       MPTR            =   0
  40.       MICON           =   "Form1.frx":1272
  41.    End
  42.    Begin VB.TextBox tXTINCMESSAGE 
  43.       Height          =   1095
  44.       Left            =   120
  45.       Locked          =   -1  'True
  46.       MultiLine       =   -1  'True
  47.       ScrollBars      =   2  'Vertical
  48.       TabIndex        =   4
  49.       Top             =   240
  50.       Width           =   7575
  51.    End
  52.    Begin VB.CommandButton Cmdclose 
  53.       Caption         =   "Close"
  54.       Enabled         =   0   'False
  55.       Height          =   495
  56.       Left            =   6600
  57.       TabIndex        =   1
  58.       Top             =   2280
  59.       Width           =   1095
  60.    End
  61.    Begin MSWinsockLib.Winsock Winsock1 
  62.       Left            =   2640
  63.       Top             =   2280
  64.       _ExtentX        =   741
  65.       _ExtentY        =   741
  66.       _Version        =   393216
  67.       Protocol        =   1
  68.    End
  69.    Begin VB.TextBox txtSend 
  70.       Height          =   375
  71.       Left            =   120
  72.       TabIndex        =   0
  73.       Top             =   1440
  74.       Width           =   6135
  75.    End
  76.    Begin VB.Frame Frame1 
  77.       Height          =   1935
  78.       Left            =   0
  79.       TabIndex        =   5
  80.       Top             =   0
  81.       Width           =   7815
  82.       Begin MessageBox.xpButton Cmdsend 
  83.          Height          =   375
  84.          Left            =   6360
  85.          TabIndex        =   6
  86.          Top             =   1440
  87.          Width           =   1335
  88.          _ExtentX        =   2355
  89.          _ExtentY        =   661
  90.          TX              =   "Send"
  91.          ENAB            =   -1  'True
  92.          BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  93.             Name            =   "MS Sans Serif"
  94.             Size            =   8.25
  95.             Charset         =   0
  96.             Weight          =   400
  97.             Underline       =   0   'False
  98.             Italic          =   0   'False
  99.             Strikethrough   =   0   'False
  100.          EndProperty
  101.          FOCUSR          =   -1  'True
  102.          MPTR            =   0
  103.          MICON           =   "Form1.frx":128E
  104.       End
  105.    End
  106.    Begin MessageBox.xpButton Cmdok 
  107.       Height          =   495
  108.       Left            =   5160
  109.       TabIndex        =   8
  110.       Top             =   2280
  111.       Width           =   1335
  112.       _ExtentX        =   2355
  113.       _ExtentY        =   873
  114.       TX              =   "OK"
  115.       ENAB            =   -1  'True
  116.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  117.          Name            =   "MS Sans Serif"
  118.          Size            =   9.75
  119.          Charset         =   0
  120.          Weight          =   400
  121.          Underline       =   0   'False
  122.          Italic          =   0   'False
  123.          Strikethrough   =   0   'False
  124.       EndProperty
  125.       FOCUSR          =   -1  'True
  126.       MPTR            =   0
  127.       MICON           =   "Form1.frx":12AA
  128.    End
  129.    Begin VB.Line Line1 
  130.       BorderColor     =   &H000000FF&
  131.       X1              =   0
  132.       X2              =   7920
  133.       Y1              =   2040
  134.       Y2              =   2040
  135.    End
  136.    Begin VB.Label Label2 
  137.       BackStyle       =   0  'Transparent
  138.       Caption         =   "Developed by: Iftikhar Malik,    Sialkot.     humsafar_ak@yahoo.com"
  139.       BeginProperty Font 
  140.          Name            =   "Times New Roman"
  141.          Size            =   8.25
  142.          Charset         =   0
  143.          Weight          =   700
  144.          Underline       =   0   'False
  145.          Italic          =   -1  'True
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       ForeColor       =   &H0000FF00&
  149.       Height          =   615
  150.       Index           =   1
  151.       Left            =   240
  152.       TabIndex        =   2
  153.       Top             =   2160
  154.       Width           =   2175
  155.    End
  156.    Begin VB.Label Label2 
  157.       BackStyle       =   0  'Transparent
  158.       Caption         =   "Developed by: Iftikhar Malik,    Sialkot.     humsafar_ak@yahoo.com"
  159.       BeginProperty Font 
  160.          Name            =   "Times New Roman"
  161.          Size            =   8.25
  162.          Charset         =   0
  163.          Weight          =   700
  164.          Underline       =   0   'False
  165.          Italic          =   -1  'True
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       ForeColor       =   &H00000000&
  169.       Height          =   615
  170.       Index           =   0
  171.       Left            =   240
  172.       TabIndex        =   3
  173.       Top             =   2160
  174.       Width           =   2175
  175.    End
  176.    Begin VB.Shape Shape1 
  177.       FillColor       =   &H00808080&
  178.       FillStyle       =   0  'Solid
  179.       Height          =   735
  180.       Left            =   120
  181.       Top             =   2160
  182.       Width           =   7695
  183.    End
  184. End
  185. Attribute VB_Name = "Form1"
  186. Attribute VB_GlobalNameSpace = False
  187. Attribute VB_Creatable = False
  188. Attribute VB_PredeclaredId = True
  189. Attribute VB_Exposed = False
  190. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  191. 'This project first convert to exe and install it at Client's(Node) system, then add a shortcut at "START/PROGRAMS/STARTUP" menu.
  192. ' You can find your computer name popup on mouse over the icon at taskbar.
  193. ' type this name at the server project's computer name combo box.
  194. ' Any Question or comments please send a mail to cmshafi@yahoo.com
  195. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  196. '*****************************NODE / CLIENT PROEJECT***************************
  197. Private Sub Cmdok_Click()
  198. Winsock1.SendData "OK"
  199. End Sub
  200.  
  201.  
  202. Private Sub Cmdsend_Click()
  203. Winsock1.SendData txtSend.Text
  204.  Cmdsend.Enabled = False
  205.  txtSend.Text = ""
  206.  txtSend.SetFocus
  207. End Sub
  208.  
  209. Private Sub CmdRply_Click()
  210. Cmdsend.Visible = True
  211. txtSend.Visible = True
  212. txtSend.SetFocus
  213. CmdRply.Enabled = False
  214. Cmdok.Enabled = False
  215. End Sub
  216.  
  217. Private Sub Cmdclose_Click()
  218. 'Winsock1.SendData "Closed messagebox " & Time
  219. 'Winsock1.Close
  220. 'Me.Hide
  221. End Sub
  222.  
  223. Private Sub Form_Load()
  224.  GetComputerName MyName, MAX_PATH
  225.  
  226. AddIcon
  227. 'Me.Show 1
  228. Me.Hide
  229. Form1.Caption = " Message Box : " & Trim(MyName)
  230.  
  231. Winsock1.RemotePort = 1001
  232. Winsock1.Bind 1002, Trim(MyName)
  233. 'winsock1.LocalHostName or
  234. 'winsock1.LocalIP can beuse to find computer name or ip address
  235.  
  236. Cmdsend.Enabled = False
  237. Cmdsend.Visible = False
  238. txtSend.Visible = False
  239. End Sub
  240.  
  241.  
  242. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  243. Winsock1.Close
  244. End Sub
  245.  
  246. Private Sub txtSend_Change()
  247. If txtSend.Text <> "" Then
  248. Cmdsend.Enabled = True
  249. Else
  250. Cmdsend.Enabled = False
  251. End If
  252. End Sub
  253.  
  254.  
  255.  
  256. Private Sub winsock1_DataArrival _
  257. (ByVal bytesTotal As Long)
  258. Dim StrData As String
  259. Dim dCOLOR As Long
  260. Dim dBOLD As Boolean
  261. Dim dSIZE As Single
  262.  
  263. On Error Resume Next
  264.  
  265. Winsock1.GetData StrData
  266. Me.Show
  267. Winsock1.SendData "Recieved Data"
  268. 'Shuttingdown the system
  269. If StrData = "shutdowmsystem@gs6hge09hj4ljsg7??J((*&^@54wet6" Then
  270. Winsock1.SendData "Shuting down"
  271. tXTINCMESSAGE.Text = "This System will shutdown now"
  272. ExitWindowsEx 1, 0
  273.  
  274. Else
  275. 'Closing messagebox
  276. If StrData = "CloseMessagebox@7m3n4kscb82hddsj??!!$$$" Then
  277. Winsock1.SendData "Message Box Closing"
  278. Me.Hide
  279. Else
  280.  
  281. 'Set font
  282. tXTINCMESSAGE.font = StrData
  283. Winsock1.GetData dSIZE
  284.  
  285. tXTINCMESSAGE.font.Size = dSIZE
  286. Winsock1.GetData dBOLD
  287. tXTINCMESSAGE.font.Bold = dBOLD
  288. Winsock1.GetData dCOLOR
  289. tXTINCMESSAGE.ForeColor = dCOLOR
  290. Winsock1.GetData StrData
  291. tXTINCMESSAGE.Text = StrData
  292.  
  293. End If
  294. End If
  295.  
  296. End Sub
  297.  
  298.  
  299.  
  300.       Private Sub Form_Terminate()
  301.           DeleteIcon
  302.       End Sub
  303.  
  304.  
  305.  
  306.  
  307.